(swallow_events): New function.

diff --git a/src/keyboard.c b/src/keyboard.c
index 9ca8d39d6317d01076924777fa85ebaad54bf88a..8b307c7fa6d9d66c0c5ea79887fda8dbc6492983 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1967,6 +1967,52 @@ kbd_buffer_get_event ()
   return (obj);
 }
 
+/* Process any events that are not user-visible.  */
+
+void
+swallow_events ()
+{
+  while (kbd_fetch_ptr != kbd_store_ptr)
+    {
+      struct input_event *event;
+
+      event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
+              ? kbd_fetch_ptr
+              : kbd_buffer);
+
+      last_event_timestamp = event->timestamp;
+
+      /* These two kinds of events get special handling
+        and don't actually appear to the command loop.  */
+      if (event->kind == selection_request_event)
+       {
+#ifdef HAVE_X11
+         x_handle_selection_request (event);
+         kbd_fetch_ptr = event + 1;
+#else
+         /* We're getting selection request events, but we don't have
+             a window system.  */
+         abort ();
+#endif
+       }
+
+      else if (event->kind == selection_clear_event)
+       {
+#ifdef HAVE_X11
+         x_handle_selection_clear (event);
+         kbd_fetch_ptr = event + 1;
+#else
+         /* We're getting selection request events, but we don't have
+             a window system.  */
+         abort ();
+#endif
+       }
+      else
+       break;
+    }
+
+  get_input_pending (&input_pending);
+}
 
 /* Caches for modify_event_symbol.  */
 static Lisp_Object func_key_syms;